home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aay.d64 / times.tbls (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  188 lines
  1. 50 REM TIMES.TBLS BY FAULKEN ON Q-LINK     (10-1-87)
  2. 100 GOSUB6150
  3. 150 SS=1:B=1
  4. 200 PRINT"[147]"
  5. 250 PRINT"             TIMES TABLES   [146]"
  6. 350 GOSUB7600 :REM HELICOPTER SOUND
  7. 400 GOSUB7850 :REM EXPLOSION MAKER
  8. 450 PRINT""
  9. 500 GOSUB6250
  10. 501 GOTO750
  11. 550 PRINT"[147]    WHAT'S THE HIGHEST MULTIPLICAND"
  12. 600 PRINT"         YOU WANT TO MULTIPLY ?"
  13. 625 PRINT"             ENTER 0 TO 13[158]"
  14. 650 PRINT"        ENTER YOUR CHOICE OR...[146]"
  15. 700 INPUT"  HIT RETURN FOR PREVIOUS SELECTION[146]";NU
  16. 710 IF NU<0 OR NU>13 THEN 550
  17. 725 GOTO 1650
  18. 750 PRINT"[147]"
  19. 800 PRINT"1) PICK A TIMES TABLE - IN ORDER"
  20. 850 PRINT"   ***BEGINNERS***[146]":REM Z
  21. 900 PRINT"2) PICK A TIMES TABLE - IN RANDOM ORDER"
  22. 950 PRINT"   ***INTERMEDIATE***[146]":REM TT*Z
  23. 1000 PRINT"3) MIXED TIMES TABLES"
  24. 1050 PRINT"   ***AVANCED***[146]":REM TT*XX
  25. 1100 PRINT"        ENTER YOUR CHOICE OR...[146]"
  26. 1150 INPUT"  HIT RETURN FOR PREVIOUS SELECTION[146]";B
  27. 1200 IF B=1 OR B=2 THEN GOSUB6600 :GOTO1350
  28. 1250 IF B=3 THEN PRINT"[147]":GOSUB6600 :GOTO550
  29. 1300 IF B<1 OR B>3 THEN750
  30. 1350 PRINT"[147]"
  31. 1400 PRINT"  WHAT TIMES TABLE DO YOU WANT TO USE ?"
  32. 1410 PRINT"              ENTER 0 TO 13[158]"
  33. 1450 PRINT"        ENTER YOUR CHOICE OR...[146]"
  34. 1500 PRINT"       HIT RETURN FOR SAME TABLE[146] ";
  35. 1550 INPUT Z
  36. 1560 IF Z<0 OR Z>13 THEN 1350
  37. 1600 GOSUB6600
  38. 1601 GOTO550
  39. 1650 PRINT"[147]"
  40. 1700 IF B=3 THEN GOSUB8300 :GOSUB8450 :GOTO1850
  41. 1750 PRINT"          YOU HAVE CHOSEN THE[146]"
  42. 1800 PRINT"           TIMES TABLE OF:[146]";Z
  43. 1850 PRINT"  THE HIGHEST MULTIPLICAND WILL BE:[146]";NU
  44. 1900 PRINT"  TOTAL NUMBER OF PROBLEMS WILL BE:[146]";NU+1
  45. 1950 PRINT" IF YOU SELECT YES[146] THE TIMER WILL START"
  46. 2000 PRINT"      AND THE PROBLEMS WILL BEGIN !"
  47. 2050 PRINT"":GOSUB4400
  48. 2100 PRINT"[147]":TI$="000000"
  49. 2101 Z$="00000000000000":REM 14 ZEROS = NU + 1 (NU = MAXIMUM INPUT)
  50. 2102 HT$=LEFT$(Z$,NU+1)
  51. 2150 FOR T=0 TO NU:REM NUMBER OF PROBLEMS PER ROUND
  52. 2200 LET QU=T+1:REM QU = PROBLEM NUMBER
  53. 2249 IFB=1THEN2350
  54. 2250 IFB=2THEN2252
  55. 2251 IFB=3THEN2300
  56. 2252 FORP=1TO1E3:TT=INT(RND(1)*(NU+1))
  57. 2253 IFMID$(HT$,TT+1,1)="X"THENNEXTP
  58. 2254 HT$=LEFT$(HT$,TT)+"X"+MID$(HT$,TT+2)
  59. 2255 GOTO2500
  60. 2300 TT=INT(NU*RND(1)+1):XX=INT(MX*RND(1)+1):GOTO2650
  61. 2350 PRINT" PROBLEM #";QU,T;" X ";Z;" = ";:REM # 1
  62. 2400 INPUT AA:IF AA <> T*Z THEN GOTO5300
  63. 2450 GOTO2750
  64. 2500 PRINT" PROBLEM #";QU,TT;" X ";Z;" = ";:REM # 2
  65. 2550 INPUT AA:IF AA <> TT*Z THEN GOTO5300
  66. 2600 GOTO2750
  67. 2650 PRINT" PROBLEM #";QU,TT;" X ";XX;" = ";:REM # 3
  68. 2700 INPUT AA:IF AA <> TT*XX THEN GOTO5300
  69. 2750 PRINT"THAT IS CORRECT !"
  70. 2800 GOSUB6750:REM BELL SOUND
  71. 2850 O=O+1:REM CORRECT ANSWER COUNTER
  72. 2900 PRINT
  73. 2950 C=0:REM RESET COUNTER FOR CORRECT ANSWER
  74. 3000 NEXT T
  75. 3050 GOTO3100
  76. 3100 IF B=1 THEN PRINT"[147]        ** TIMES TABLE OF[146]"; Z"**"
  77. 3150 IF B=2 THEN PRINT"[147]     ** RANDOM TIMES TABLE OF[146]"; Z"**"
  78. 3200 IF B=3 THEN PRINT"[147]        ** MIXED TIMES TABLES[146] **"
  79. 3250 R=R+1
  80. 3300 PRINT"              ROUND #[146]    ";R
  81. 3350 GOSUB7300:REM BEEPER = ROUND NUMBER
  82. 3400 LET V$=TI$
  83. 3450 PRINT" TOTAL TIME THIS ROUND ";MID$(V$,3,2);" MIN ";RIGHT$(V$,2);" SEC"
  84. 3500 IFSS=1 THEN W$=V$:GOTO3650
  85. 3550 IFR=1THENW$=V$:GOTO3650
  86. 3600 IFV$>W$THEN GOTO3700
  87. 3650 PRINT" TOTAL TIME BEST ROUND ";MID$(V$,3,2);" MIN ";RIGHT$(V$,2);" SEC"
  88. 3675 GOTO 3750
  89. 3700 PRINT" TOTAL TIME BEST ROUND ";MID$(W$,3,2);" MIN ";RIGHT$(W$,2);" SEC"
  90. 3750 LET SS=SS+1
  91. 3800 IF R>1 AND W$=V$ THEN PRINT"           IT WAS A TIE ![146]"
  92. 3850 IFV$>W$THEN PRINT"      YOU WERE SLOWER THIS TIME ![146]
  93. 3900 [139]V$[179]W$[167] [153]"      YOU WERE FASTER THIS TIME !WAIT"
  94. 3950 [139]V$[179]W$[167]W$[178]V$
  95. 4000 [153]"";O;"CORRECT";N;"WRONG =";O[170]N;"TOTAL ANSWERS":[141]4750
  96. 4050 [153]"      DO YOU WANT TO DO ANOTHER ?"
  97. 4100 [153]"          YWAIT = YES ; NWAIT = NO  YCMDCMDCMD";
  98. 4150 [133]A$:[139] A$[179][177]"Y" [167] [137]4250
  99. 4200 [137]750
  100. 4250 [139] A$[178]"N" [167] [137]4300 
  101. 4300 [153]"LOAD":[153]" TYPE RUNWAIT TO START AGAIN":[141]6350:[128]
  102. 4350 [137]4150
  103. 4400 [153]"    IS THIS THE CHOICE YOU WANTED ?"
  104. 4450 [153]"      YWAIT = YES/ NWAIT = NO/ EWAIT = EXIT ? YCMDCMDCMD";
  105. 4500 [133]A$:[139] A$[178]"Y" [167] [142]
  106. 4600 [139] A$[178]"N" [167] 750
  107. 4650 [139] A$[178]"E" [167] 4300
  108. 4700 [137]4500
  109. 4750 [139] O[173](O[170]N)[177].94999 [167] [153]" YOUR GRADE IS AN A+WAIT **** PERFECT ****"
  110. 4800 [139]O[173](O[170]N)[177].8999 [175] O[173](O[170]N)[179].95 [167] [153]" YOUR GRADE IS AN A-WAIT EXCELLENT
  111. 4850 IF O/(O+N)>.84999 AND O/(O+N)<.9 THEN PRINT" YOUR GRADE IS A B+[146] VERY GOOD
  112. 4900 [139] O[173](O[170]N)[177].7999 [175] O[173](O[170]N)[179].85 [167] [153]" YOUR GRADE IS A B-WAIT GOOD"
  113. 4950 [139] O[173](O[170]N)[177].74999 [175] O[173](O[170]N)[179].8 [167] [153]" YOUR GRADE IS A C+WAIT PRACTICE!
  114. 5000 IFO/(O+N)>.6999 AND O/(O+N)<.75 THEN PRINT" YOUR GRADE IS A C-[146] TRY HARDER
  115. 5050 [139]O[173](O[170]N)[179].70[167] [153]"  YOU DID NOT PASSWAIT    DO IT AGAINWAIT !!!":[137]5160
  116. 5100 O[178]0:N[178]0:[143] SET CORRECT/ERROR COUNTER TO 0
  117. 5150 [142]
  118. 5160 [129] E[178]1 [164] 2000:[130] E
  119. 5170 [153]"            DON'T GO AWAYSYS"
  120. 5200 O[178]0:N[178]0:[143] SET CORRECT/ERROR COUNTER TO 0 FOR 'DID NOT PASS'
  121. 5250 [129] Y[178]1 [164] 5000:[130]:[137]2100:[143] DOES IT AGAIN FOR 'YOU DID NOT PASS'
  122. 5300 C[178]C[170]1:[143] COUNTER TO GIVE CORRECT ANSWER
  123. 5350 [141]8200 :[143] CURSOR COLOR
  124. 5400 [139] C[178]2 [175] B[178]1 [167] [153]"THE ANSWER IS ";T[172]Z:[137]5900
  125. 5450 [139] C[178]2 [175] B[178]2 [167] [153]"THE ANSWER IS ";TT[172]Z:[137]5900
  126. 5500 [139] C[178]2 [175] B[178]3 [167] [153]"THE ANSWER IS ";TT[172]XX:[137]5900
  127. 5550 [141]6450:[153]"TRY AGAIN":[141]6250
  128. 5600 [141]6950:[143] BUZZER FOR INCORRECT ANSWER
  129. 5650 N[178]N[170]1:[143] COUNTS ERRORS
  130. 5700 [153]
  131. 5750 [139] B[178]1 [167] 2249
  132. 5800 [139] B[178]2 [167] 2500
  133. 5850 [139] B[178]3 [167] 2650
  134. 5900 [141]7850 
  135. 5950 [141]6250
  136. 6000 N[178]N[170]1:[143] COUNTS ERRORS AFTER GIVING ANSWER
  137. 6050 [139] T[178]NU [167] [129] XY[178]1 [164] 3000:[130] XY
  138. 6100 [137]2900
  139. 6150 [151]53280,7:[151]53281,0:[151]646,7:[143] OPENING SCREEN COLOR
  140. 6200 [142]
  141. 6250 [151]53280,0:[151]53281,0:[151]646,7:[143] MAIN SCREEN COLOR
  142. 6300 [142]
  143. 6350 [151]53280,14:[151]53281,6:[151]646,14:[143] DOS SCREEN COLOR
  144. 6400 [142]
  145. 6450 [151]646,1:[143] CHR WHITE FOR RETRY
  146. 6500 [142]
  147. 6550 [143] CONTROLS ROUND NUMBER
  148. 6600 [139] SS[178]1 [167] ZZ[178]Z [175] BB[178]B
  149. 6650 [139] Z[179][177]ZZ [176] B[179][177]BB [167] R[178]0:ZZ[178]Z:BB[178]B
  150. 6700 [142]
  151. 6750 [143] BELL SOUND
  152. 6800 [151] S[170]4,128:[143] SOUND OFF FROM EXPLOSION (SPS MOD)
  153. 6850 S[178]54272:[151]S[170]1,112:[151]S[170]5,10:[151]S[170]6,9:[151]S[170]24,15:[151]S[170]4,17:[151]S[170]4,16
  154. 6900 [142]
  155. 6950 [143] BETTER BUZZER
  156. 7000 [143] MODIFY NEXT LINE BY CHANGING VALUES AFTER ',' IN POKES,10 & POKE S+1,40
  157. 7050 [143] IT CAN BE ANYTHING FROM 0-255 BUT NOT BOTH 0;&POKES+4,33 TO ,17 OR ,128
  158. 7100 S[178]54272:[151] S[170]6,240:[151] S,10:[151] S[170]1,40:[151] S[170]4,33
  159. 7150 [129]J[178]1[164]10:[151]54296,15:[129]K[178]1[164]5:[130]:[151]54296,0:[129]K[178]1[164]5:[130]:[130]
  160. 7200 [151] S[170]4,128
  161. 7250 [142]
  162. 7300 [143] BEEP ROUTINE
  163. 7350 [151] S[170]4,128:[143] SOUND OFF FROM EXPLOSION (SPS MOD)
  164. 7400 S[178]54272:[151]S[170]24,15:[151]S,20:[151]S[170]1,20:[151]S[170]2,10:[151]S[170]3,10:[151]S[170]6,128
  165. 7450 [129] J[178]1 [164] R:[141]7550:[130]:[142]
  166. 7500 [143] SUBROUTINE TO CALL FOR A BEEP EQUAL TO 'R' ROUNDS
  167. 7550 [151]S[170]4,65:[129]K[178]1[164]200:[130]:[151]S[170]4,0:[142]
  168. 7600 [143] HELICOPTER SOUND
  169. 7650 S[178]54272:[129] J[178]0[164]23:[151]S[170]J,0:[130]:[151]S[170]24,15:[151]S[170]6,240:[151]S[170]4,17
  170. 7700 [129]J[178]1[164]100:[129] K[178]9[164]0[169][171]1:[151]S[170]1,K:[130]K:[130]J
  171. 7750 [143] 'J' CONTROLS DURATION
  172. 7800 [142]
  173. 7850 [143] EXPLOSION MAKER
  174. 7900 D[178]9:[143] DURATION (0-15)
  175. 7950 F[178]8:[143] FREQUENCY (0-255)
  176. 8000 S[178]54272:[129] L[178]1[164]24:[151] S[170]L,0:[130]
  177. 8050 [151]S[170]1,F:[151]S[170]5,16[170]D:[151]S[170]24,15
  178. 8100 [151] S,240:[151] S[170]4,129
  179. 8150 [142]
  180. 8200 [151] 646,5:[143] CHR COLOR TO GREEN TO GIVE CORRECT ANSWER
  181. 8250 [142]
  182. 8300 [153]"     WHAT TABLES DO YOU WANT TO USE"
  183. 8350 [133]"            1 THROUGH ";MX
  184. 8400 [142]
  185. 8450 [153]"LOAD             YOU HAVE CHOSEN"
  186. 8500 [153]"     MIXED TIMES TABLESWAIT  1  THROUGHWAIT";MX
  187. 8550 [142]
  188.